home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
amac36.arc
/
SRL.QM
< prev
next >
Wrap
Text File
|
1991-03-16
|
2KB
|
35 lines
* This macro is used with SRL.BAT. See SRCHxx.QM for documentation.
*
@7 macrobegin
***************************************** LOAD FOUND FILES
altwordset * For all file names
endfile * Get to end of file
CHECKAGAIN: *
unmarkblock * Clear last file name
find #42 "Fi" return "B" return* Find file name
wordright * Move to space
wordright * Move to file name
markcolumn * Mark it
endline * Get all name in block
copy * Copy file name to scrap
EditFile * Get ready to load
CurrentFilename " " * To force return *here*
Paste Return * Paste file name & do it!
cursorup * Go to next line
jfalse END: * No more file names? End
jump CHECKAGAIN: * Check again
END: *
defaultwordset * Set default
***************************************** INITIALIZE FIND FOR SEARCH |
DOS "set>c:$" return return * Get SET output to tempfile |
editfile "c:$" return * Load tempfile |
find "FGS" return return ** Find FGS in SET output | v2.2
begline wordright dropanchor * Mark first letter of search |
* text |
endline cursorleft copy * Copy search text to scrap |
killfile quit * Kill/quit temp for next time|
Find paste return Escape * Initialize find for F4 |
*
* 37 bytes Thu 09-06-1990 13:53:04
* 83 bytes Sat 02-09-1991 10:47:23